home *** CD-ROM | disk | FTP | other *** search
/ Windows Expert / Windows Expert.iso / utility / fbuild14.zip / ADDTOPM.XLM (.txt) next >
Excel Spreadsheet  |  1992-01-29  |  10KB  |  129 lines
  1. Sheet: 
  2. (1, 0)        Dialog
  3. (1, 6)        Add to Program Manager
  4. (2, 0)        
  5. (2, 1)        5
  6. (2, 2)        10
  7. (2, 3)        6
  8. (2, 6)        Add Item to Program Manager:
  9. (3, 1)        5
  10. (3, 2)        42
  11. (3, 3)        25
  12. (3, 6)        &Filename:
  13. (4, 1)        6
  14. (4, 2)        155
  15. (4, 3)        22
  16. (4, 4)        400
  17. (4, 7)        C:\EXCEL\DATA\ADDTOPM.XLM
  18. (4, 8)        
  19. (5, 1)        5
  20. (5, 2)        42
  21. (5, 3)        46
  22. (5, 6)        &Title:
  23. (5, 7)        
  24. (5, 8)        
  25. (6, 1)        6
  26. (6, 2)        155
  27. (6, 3)        43
  28. (6, 4)        400
  29. (6, 7)        addtopm
  30. (6, 8)        
  31. (7, 1)        5
  32. (7, 2)        42
  33. (7, 3)        67
  34. (7, 6)        &Group:
  35. (7, 7)        
  36. (7, 8)        
  37. (8, 1)        6
  38. (8, 2)        155
  39. (8, 3)        64
  40. (8, 4)        400
  41. (8, 7)        Worksheets
  42. (8, 8)        Worksheets
  43. (9, 1)        5
  44. (9, 2)        42
  45. (9, 3)        88
  46. (9, 6)        &Icon File:
  47. (9, 7)        
  48. (9, 8)        
  49. (10, 1)        6
  50. (10, 2)        155
  51. (10, 3)        85
  52. (10, 4)        400
  53. (10, 7)        C:\WINDOWS\ICONS\XLM.ICO
  54. (10, 8)        C:\WINDOWS\ICONS\XLM.ICO
  55. (11, 1)        13
  56. (11, 2)        210
  57. (11, 3)        112
  58. (11, 6)        &Save Changes
  59. (11, 7)        TRUE
  60. (11, 8)        
  61. (12, 1)        1
  62. (12, 2)        177
  63. (12, 3)        134
  64. (12, 4)        88
  65. (12, 6)        &OK
  66. (13, 1)        2
  67. (13, 2)        291
  68. (13, 3)        134
  69. (13, 4)        88
  70. (13, 6)        &Cancel
  71. (15, 0)        AddToProgMan
  72. (15, 2)        Get the filename
  73. (16, 2)        If blank, then report error
  74. (17, 2)        set title
  75. (18, 2)        get old group
  76. (19, 2)        get old icon
  77. (20, 2)        get old save status
  78. (21, 2)        if no icon, just do dialog
  79. (22, 0)        FileExtension
  80. (22, 2)        get extension of excel file
  81. (23, 0)        IconFileName
  82. (23, 2)        parse existing icon name
  83. (24, 2)        if it is XL?.ICO, adjust to match current file, otherwise set to ""
  84. (25, 0)        ReturnValue
  85. (25, 2)        do the dialog
  86. (26, 2)        if Cancel, then quit
  87. (27, 2)        if no save, then don't
  88. (28, 2)        copy group
  89. (29, 2)        copy icon
  90. (30, 0)        OldFile
  91. (31, 2)        turn off echo
  92. (33, 2)         ... or save has changed
  93. (35, 2)        turn echo back on
  94. (36, 0)        Channel
  95. (36, 2)        Start progman DDE
  96. (37, 2)        Create if necessary
  97. (38, 2)        minimize group
  98. (39, 2)        restore group
  99. (40, 0)        Command
  100. (41, 2)        add item to group
  101. (42, 2)        minimize group
  102. (43, 2)        close channel
  103. (44, 2)        return
  104. (46, 0)        NoFileName
  105. (49, 0)        Path
  106. (49, 1)        C:\WIN\ICONS\
  107. (50, 0)        BaseName
  108. (50, 1)        XLM
  109. (51, 0)        Extension
  110. (51, 1)        ICO
  111. (53, 0)        ParseFileName
  112. (53, 2)        return string
  113. (54, 2)        one argument, a string
  114. (55, 2)        initialize path,
  115. (56, 2)          ... base filename, and
  116. (57, 2)          ... and extension
  117. (58, 2)        if no name, return ""
  118. (59, 2)        any "\"'s?
  119. (60, 0)        WhereIsSlash
  120. (60, 2)        is so, add stuff before
  121. (61, 2)          ... to path and ...
  122. (62, 2)          ... remove it from name
  123. (64, 0)        WhereIsPeriod
  124. (64, 2)        any extension?
  125. (65, 2)        if not, return name
  126. (66, 2)        if so, get extension
  127. (67, 2)        trim off extension
  128. (68, 2)        and return base name
  129.